www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Admin_Movie.asp
<html>
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云网互动影视6.0--影片管理</title>
<LINK href="css/css.css" type=text/css rel=stylesheet>
</head>
<BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0">
<script language="JavaScript" type="text/javascript" src="YWNT_TMS_inc/YWNT_TMS_Common.js"></script>
<!--#include file="../Conn.asp" -->
<!--#include file="YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<!--#include file="YWNT_TMS_inc/YWNT_TMS_Page.asp" -->
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net
'郑重声明:
' 1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' 3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Call CheckLogin("Movie")
sub AllEditSave()
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_Movie where ID in ("&Request.Form("ID")&")"
Rs.open sql,conn,1,3
Do while not rs.eof
IF Request.Form("SeverID")<>"" Then
RS("SeverID")=Request.Form("SeverID")
End IF
IF Request.Form("ClassID")<>"" Then
RS("TypeID")=Request.Form("ClassID")
End IF
IF Request.Form("MovieRegion")<>"" Then
RS("MovieRegion")=Request.Form("MovieRegion")
End IF
IF Request.Form("MovieCoin")<>"" Then
RS("MovieCoin")=Request.Form("MovieCoin")
End IF
IF Request.Form("MovieClick")<>"" Then
RS("MovieClick")=Request.Form("MovieClick")
End IF
IF Request.Form("MovieCompetence")<>"" Then
RS("MovieCompetence")=Request.Form("MovieCompetence")
End IF
IF Request.Form("GroupID")<>"" Then
RS("MovieGroup")=Replace(Request.Form("GroupID")," ","")
End IF
IF Request.Form("MovieLook")<>"" Then
RS("MovieLook")=Request.Form("MovieLook")
End IF
IF Request.Form("MovieDown")<>"" Then
RS("MovieDown")=Request.Form("MovieDown")
End IF
IF Request.Form("MovieSuggest")<>"" Then
RS("MovieSuggest")=Request.Form("MovieSuggest")
End IF
IF Request.Form("MovieHot")<>"" Then
RS("MovieHot")=Request.Form("MovieHot")
End IF
IF Request.Form("MovieSerialization")<>"" Then
RS("MovieSerialization")=Request.Form("MovieSerialization")
End IF
IF Request.Form("MovieFeature")<>"" then
RS("MovieFeature")=1
End IF
IF Request.Form("MovieFree")<>"" Then
RS("MovieFree")=Request.Form("MovieFree")
End IF
if Request.Form("FeatureID")<>"" then
RS("MovieFeatureID")=Request.Form("FeatureID")
End IF
Rs.update
Rs.movenext
loop
Rs.close
set Rs=nothing
Call AddLog("批量修改影片属性",3)
call Admin_ShowErr("<li>批量修改影片属性成功</li>",""&Request.Form("ReturnURL")&"",1)
end sub
sub EditSave()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_Movie where ID="&Request.Form("ID")&" Order by ID desc"
Rs.open sql,Conn,1,3
RS("SeverID")=Request.Form("SeverID")
RS("TypeID")=Request.Form("ClassID")
RS("MovieName")=Request.Form("MovieName")
RS("MovieActor")=Request.Form("MovieActor")
RS("MovieRegion")=Request.Form("MovieRegion")
RS("MoviePic")=Request.Form("MoviePic")
RS("MovieCoin")=Request.Form("MovieCoin")
RS("MovieClick")=Request.Form("MovieClick")
RS("MovieCompetence")=Request.Form("MovieCompetence")
RS("MovieGroup")=Replace(Request.Form("GroupID")," ","")
RS("MovieLook")=Request.Form("MovieLook")
RS("MovieDown")=Request.Form("MovieDown")
RS("MovieSuggest")=Request.Form("MovieSuggest")
RS("MovieHot")=Request.Form("MovieHot")
RS("MovieSerialization")=Request.Form("MovieSerialization")
if Request.Form("MovieFeature")<>"" then
RS("MovieFeature")=1
else
RS("MovieFeature")=0
end if
if Request.Form("MovieFree")<>"" then
RS("MovieFree")=1
else
RS("MovieFree")=0
end if
if Request.Form("FeatureID")<>"" then
RS("MovieFeatureID")=Request.Form("FeatureID")
end if
RS("MovieDate")=Now()
RS("MovieContent")=Request.Form("Content")
RS("MovieAudit")=1
Rs.Update
Rs.Close
Set Rs = Nothing
call EditMovieUrl("YWNT_TMS_MovieUrl","EditUrl","MovieUrl",Request.Form("ID"))
if Request.Form("MovieUrl1")<>"" then
call AddMovieUrl("YWNT_TMS_MovieUrl",Request.Form("UrlVolume"),"MovieUrl","MovieUrl",Request.Form("ID"))
end if
Select Case SeverP2pType(Request.Form("SeverID"))
Case 1,3,4,5,6
call EditMovieUrl("YWNT_TMS_P2PUrl","EditP2Purl","P2PUrl",Request.Form("ID"))
if Request.Form("P2Purl1")<>"" then
call AddMovieUrl("YWNT_TMS_P2PUrl",Request.Form("P2pVolume"),"P2Purl","P2PUrl",Request.Form("ID"))
end if
Case 2
conn.execute "delete from p2pfilm WHERE MovieID ="&Request.Form("ID")&""
call AddMovieUrl("p2pfilm",Request.Form("P2pNmu"),"EditP2Purl","Url",Request.Form("ID"))
if Request.Form("P2Purl1")<>"" then
call AddMovieUrl("p2pfilm",Request.Form("P2pVolume"),"P2PUrl","Url",Request.Form("ID"))
end if
End Select
call EditMovieUrl("YWNT_TMS_DownUrl","EditDownurl","DownUrl",Request.Form("ID"))
if Request.Form("Downurl1")<>"" then
call AddMovieUrl("YWNT_TMS_DownUrl",Request.Form("DownVolume"),"Downurl","DownUrl",Request.Form("ID"))
end if
Call AddLog("修改影片"&Request.Form("MovieName"),3)
call Admin_ShowErr("<li>修改影片成功</li>",""&Request.Form("ReturnURL")&"",1)
end sub
sub AddSave()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_Movie"
Rs.open sql,Conn,1,3
Rs.addnew
RS("SeverID")=Request.Form("SeverID")
RS("TypeID")=Request.Form("ClassID")
RS("MovieName")=Request.Form("MovieName")
RS("MovieActor")=Request.Form("MovieActor")
RS("MovieRegion")=Request.Form("MovieRegion")
RS("MoviePic")=Request.Form("MoviePic")
RS("MovieCoin")=Request.Form("MovieCoin")
RS("MovieClick")=Request.Form("MovieClick")
RS("MovieCompetence")=Request.Form("MovieCompetence")
RS("MovieGroup")=Replace(Request.Form("GroupID")," ","")
RS("MovieLook")=Request.Form("MovieLook")
RS("MovieDown")=Request.Form("MovieDown")
RS("MovieSuggest")=Request.Form("MovieSuggest")
RS("MovieHot")=Request.Form("MovieHot")
RS("MovieSerialization")=Request.Form("MovieSerialization")
if Request.Form("MovieFeature")<>"" then
RS("MovieFeature")=1
else
RS("MovieFeature")=0
end if
if Request.Form("MovieFree")<>"" then
RS("MovieFree")=1
else
RS("MovieFree")=0
end if
if Request.Form("FeatureID")<>"" then
RS("MovieFeatureID")=Request.Form("FeatureID")
end if
RS("MovieDate")=Now()
RS("MovieContent")=Request.Form("Content")
RS("MovieAudit")=1
Rs.Update
Rs.Close
Set Rs = Nothing
set RS = Conn.execute("select top 1 ID from YWNT_TMS_Movie Order by ID desc")
ID=RS("ID")
Rs.Close
Set Rs = Nothing
if Request.Form("MovieUrl1")<>"" then
call AddMovieUrl("YWNT_TMS_MovieUrl",Request.Form("UrlVolume"),"MovieUrl","MovieUrl",ID)
end if
if Request.Form("P2Purl1")<>"" then
Select Case SeverP2pType(Request.Form("SeverID"))
Case 1,3,4,5,6
call AddMovieUrl("YWNT_TMS_P2PUrl",Request.Form("P2pVolume"),"P2Purl","P2PUrl",ID)
Case 2
call AddMovieUrl("p2pfilm",Request.Form("P2pVolume"),"P2PUrl","Url",ID)
End Select
end if
if Request.Form("Downurl1")<>"" then
call AddMovieUrl("YWNT_TMS_DownUrl",Request.Form("DownVolume"),"Downurl","DownUrl",ID)
end if
Call AddLog("添加影片"&Request.Form("MovieName"),3)
call Admin_ShowErr("<li>添加影片成功</li><li><a href=""Admin_Movie.asp?Action=Add""><b>继续添加影片</b></a> <a href=""Admin_Movie.asp?Action=Edit&ID="&ID&"""><b>返回编辑影片</b></a></li>","Admin_Movie.asp",1)
end sub
sub Del()
Select Case GetSysPlay("MovieRecycling")
Case 1
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="select ID from YWNT_TMS_Movie where ID in ("&Request("ID")&")"
Rs.open sql,conn,1,1
do while not Rs.eof
Call DeleteFile(CollectionMoive("MoviePic",RS("ID")))
IF GetConfig("WebHtmlMode")<>"asp" Then
Call DeleteFile(GetConfig("WebiInstallDir")&GetConfig("WebiInstallDir")&GetConfig("HtmlDIr")&"Movie_"&RS("ID")&"."&GetConfig("WebHtmlMode"))
END IF
Rs.movenext
loop
Rs.close
set Rs=nothing
Call DelMovieUrl(Request("ID"))
conn.execute "delete from YWNT_TMS_Movie WHERE ID in ("&Request("ID")&")"
conn.execute "delete from YWNT_TMS_UsersCollection WHERE CollectionMoiveID in ("&Request("ID")&")"
conn.execute "delete from YWNT_TMS_Comments WHERE CommentsMovieID in ("&Request("ID")&")"
Call AddLog("完全删除影片",3)
Case else
Conn.execute("Update YWNT_TMS_Movie set MovieRecovery=1 where ID in ("&Request("ID")&")")
Call AddLog("删除影片到回收站",3)
End Select
call Admin_ShowErr("<li>删除影片成功！</li>",""&Request.ServerVariables("HTTP_REFERER")&"",1)
end sub
sub Hide()
Conn.execute("Update YWNT_TMS_Movie set MovieHide=1 where ID in ("&Request.Form("ID")&")")
Call AddLog("隐藏影片",3)
call Admin_ShowErr("<li>隐藏影片成功！</li>",""&Request.ServerVariables("HTTP_REFERER")&"",1)
end sub
sub ResumeW()
Conn.execute("Update YWNT_TMS_Movie set MovieHide=0 where ID in ("&Request.Form("ID")&")")
Call AddLog("恢复隐藏影片",3)
call Admin_ShowErr("<li>恢复隐藏影片成功！</li>",""&Request.ServerVariables("HTTP_REFERER")&"",1)
end sub
sub Attribute()
Conn.execute("Update YWNT_TMS_Movie set "&Request.QueryString("Aname")&"="&Request.QueryString("value")&" where ID="&Request.QueryString("ID")&"")
Call AddLog("修改影片属性",3)
response.redirect Request.ServerVariables("HTTP_REFERER")
end sub
sub DelUrl()
conn.execute "delete from "&Request.QueryString("SelectName")&" WHERE ID="&Request.QueryString("ID")&""
response.redirect Request.ServerVariables("HTTP_REFERER")
end sub%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tbody>
<tr>
<td colspan="3" class=xingmu>影片管理</td>
</tr>
<tr>
<td class="hback"><a href="Admin_Movie.asp">影片管理首页</a> | <a href="Admin_Movie.asp?Action=Add">添加影片</a> | <a href="Admin_Movie.asp?Feature=1">专题影片管理</a></td>
<%if Request.QueryString("Feature")<>1 then%><td width="25%" align="center" class="hback"><a href="Admin_Movie.asp?MovieSuggest=1&Ranks=<%=Request.QueryString("Ranks")%>">推荐</a> | <a href="Admin_Movie.asp?MovieHot=1&Ranks=<%=Request.QueryString("Ranks")%>">热点</a> | <a href="Admin_Movie.asp?MovieSerialization=1&Ranks=<%=Request.QueryString("Ranks")%>">连载</a> | <a href="Admin_Movie.asp?MovieHide=1&Ranks=<%=Request.QueryString("Ranks")%>">隐藏</a></td><%end if%>
<td width="35%" align="center" class="hback"><a href="Admin_Movie.asp?Ranks=ID&Feature=<%=Request.QueryString("Feature")%>">ID排序</a> | <a href="Admin_Movie.asp?Ranks=Date&Feature=<%=Request.QueryString("Feature")%>">加入时间排序</a> | <a href="Admin_Movie.asp?Ranks=Click&Feature=<%=Request.QueryString("Feature")%>">点播次数排序</a></td>
</tr>
</tbody>
</table>
<% Action=Trim(request("Action"))
Select Case Action
Case "Add"
call Add()
Case "AddSave"
call AddSave()
Case "Edit"
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_Movie where ID="&Request.QueryString("ID")&" Order by ID desc"
Rs.open sql,Conn,1,1
YWNT_TMS_ID=RS("ID")
YWNT_TMS_SeverID=RS("SeverID")
YWNT_TMS_TypeID=RS("TypeID")
YWNT_TMS_MovieName=RS("MovieName")
YWNT_TMS_MovieActor=RS("MovieActor")
YWNT_TMS_MovieRegion=RS("MovieRegion")
YWNT_TMS_MoviePic=RS("MoviePic")
YWNT_TMS_MovieCoin=RS("MovieCoin")
YWNT_TMS_MovieClick=RS("MovieClick")
YWNT_TMS_MovieCompetence=RS("MovieCompetence")
YWNT_TMS_MovieGroup=RS("MovieGroup")
YWNT_TMS_MovieLook=RS("MovieLook")
YWNT_TMS_MovieDown=RS("MovieDown")
YWNT_TMS_MovieSuggest=RS("MovieSuggest")
YWNT_TMS_MovieHot=RS("MovieHot")
YWNT_TMS_MovieSerialization=RS("MovieSerialization")
YWNT_TMS_MovieFeature=RS("MovieFeature")
YWNT_TMS_MovieFree=RS("MovieFree")
YWNT_TMS_MovieFeatureID=RS("MovieFeatureID")
YWNT_TMS_MovieContent=RS("MovieContent")
RS.close
set RS=nothing
call Edit()
Case "EditSave"
call EditSave()
Case "AllEdit"
call AllEdit()
Case "AllEditSave"
call AllEditSave()
Case "Del"
call Del()
Case "Hide"
call Hide()
Case "ResumeW"
call ResumeW()
Case "Attribute"
call Attribute()
Case "DelUrl"
call DelUrl()
Case else
call List()
End Select
sub List()
Dim int_RPP
int_RPP=GetConfig("PageNumber") '设置每页显示数目
if Request.QueryString("Feature")=1 then%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tr>
<td class=xingmu>专题影片分类管理</td>
</tr>
<tr>
<td class="hback"><a href="Admin_Movie.asp?Feature=1">所有专题影片</a> |
<%call Featuretop() %></td>
</tr>
</table>
<%else%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tr>
<td width="15%" class=xingmu onMouseOver="ChangeServer(0);" style="cursor: hand;">影片分类管理</td>
<td width="15%" class=xingmu onMouseOver="ChangeServer(1);" style="cursor: hand;">影片服务器管理</td>
<td class=xingmu> </td>
</tr>
<tr id=XkType>
<td colspan="3" class="hback"><a href="Admin_Movie.asp">所有影片</a> | <% Classtop(Request.QueryString("ParentId")) %></td>
</tr>
<tr id=XkServer style="display:none">
<td colspan="3" class="hback"><%Servertop()%></td>
</tr>
</table>
<%end if%>
<script language="JavaScript" type="text/javascript" src="YWNT_TMS_Inc/ajaxrequest.js"></script>
<div id="mask" style="display:none;"></div>
<div id="login" style="display:none;">
<TABLE id="FtpSz" style="display:none;" class=table cellSpacing=1 cellPadding=3 width="50%" align=center border=0>
<TBODY>
<TR>
<TD colspan="2" class=xingmu>发布设置</TD>
<TD width="5%" class=xingmu><img src="Images/logbg_v2.gif" width="18" height="18" onClick="closeform()"></TD>
</TR>
<TR>
<TD width="100" height=32 align="right" class="hback">影片类型：</TD>
<TD colspan="2" class="hback"><select name="MovieClass" style="width:120px;">
<option value="1">普通FLV</option>
<option value="2">17bobo</option>
<option value="3">qvod</option>
<option value="4">迅雷看看</option>
<option value="5">P2P 泥巴</option>
<option value="6">OTV网络电视</option>
</select></TD>
</TR>
<TR>
<TD height=32 align="right" class="hback">影片线路：</TD>
<TD height=32 colspan="2" class="hback"><select name="MovieLines" style="width:120px;">
<option value="1">电信</option>
<option value="2">网通</option>
<option value="3">双线</option>
</select></TD>
</TR>
<TR>
<TD height=32 colspan="3" align="center" class="hback"><input type="submit" name="Submit" value="发 布" onClick="SubmitFtpDate()"></TD>
</TR>
<TR>
<TD height=32 colspan="3" align="center" class="hback"></TD>
</TR>
</TBODY>
</TABLE>
<TABLE id="FtpJd" style="display:none;" class=table cellSpacing=1 cellPadding=3 width="50%" align=center border=0>
<TBODY>
<TR>
<TD class=xingmu>发布进度</TD>
<TD width="5%" class=xingmu><img src="Images/logbg_v2.gif" width="18" height="18" onClick="closeform()"></TD>
</TR>
<TR align="center">
<TD height=32 colspan="2" class="hback"><div class="RefreshLen"><span class="xingmu" id="RefreshLenx"></span></div></TD>
</TR>
<TR>
<TD height=32 colspan="2" align="center" class="hback">总共要发布<span id="FtpNum"></span>个影片,已经发布<span id="FtpMovieNum">0</span>个影片</TD>
</TR>
</TBODY>
</TABLE>
</div>
<script language="JavaScript" type="text/javascript" src="YWNT_TMS_Inc/Calendar.js"></script>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tbody>
<tr>
<td colspan="5" class=xingmu>影片查询</td>
</tr>
<form action="Admin_Movie.asp?Feature=<%=Request.QueryString("Feature")%>" method="post">
<tr>
<td align="right" class="hback">按日期查询：</td>
<td class="hback"><INPUT name=StopDate id=StopDate onfocus=setday(this) value="" size="15" readOnly maskType="longDate" realValue="">
<IMG onclick=StopDate.focus() src="images/calendar.gif" align=absBottom> 到
<INPUT name=EndDate id=EndDate onfocus=setday(this) value="" size="15" readOnly maskType="longDate" realValue="">
<IMG onclick=EndDate.focus() src="images/calendar.gif" align=absBottom></td>
<td align="right" class="hback">按影片名称查询：</td>
<td class="hback"><input name="MovieName" type="text" id="MovieName" size="20"></td>
<td class="hback"><input type="submit" name="Submit2" value="查 询"></td>
</tr>
</form>
</table>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tr>
<td width="5%" align="center" class=xingmu>ID</td>
<td align="center" class=xingmu>影片名称</td>
<td width="12%" align="center" class=xingmu>所属服务器</td>
<td width="12%" align="center" class=xingmu>所属<%if Request.QueryString("Feature")=1 then Response.Write"专题" end if%>栏目</td>
<td width="4%" align="center" class=xingmu>观看</td>
<td width="4%" align="center" class=xingmu>下载</td>
<td width="4%" align="center" class=xingmu>推荐</td>
<td width="4%" align="center" class=xingmu>热点</td>
<td width="4%" align="center" class=xingmu>连载</td>
<td width="4%" align="center" class=xingmu>专题</td>
<td width="4%" align="center" class=xingmu>隐藏</td>
<td colspan="2" align="center" class=xingmu>操作</td>
</tr>
<form name="forms" action="Admin_Movie.asp" method="post">
<%Select Case Request.QueryString("Ranks")
Case "Click"
SqlMei="Order by MovieClick desc"
Case "Date"
SqlMei="Order by MovieDate desc"
Case else
SqlMei="Order by ID desc"
End Select
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="Select ID,SeverID,TypeID,MovieName,MovieActor,MovieRegion,MovieLook,MovieDown,MovieSuggest,MovieHot,MovieSerialization,MovieFeature,MovieHide,MovieFeatureID from YWNT_TMS_Movie where MovieRecovery=0 and MovieAudit=1 "
if Request.QueryString("Feature")=1 then
sql=sql&"and MovieFeature=1 "
end if
if Request.QueryString("ID")<>"" then
if Request.QueryString("Feature")=1 then
sql=sql&"And MovieFeatureID="&Request.QueryString("ID")&" and MovieHide=0 "&SqlMei&""
else
sql=sql&"And TypeID="&Request.QueryString("ID")&" and MovieHide=0 "&SqlMei&""
end if
elseif Request.QueryString("MovieSuggest")<>"" then
sql=sql&"And MovieSuggest="&Request.QueryString("MovieSuggest")&" and MovieHide=0 "&SqlMei&""
elseif Request.QueryString("MovieHot")<>"" then
sql=sql&"And MovieHot="&Request.QueryString("MovieHot")&" and MovieHide=0 "&SqlMei&""
elseif Request.QueryString("MovieSerialization")<>"" then
sql=sql&"And MovieSerialization="&Request.QueryString("MovieSerialization")&" and MovieHide=0 "&SqlMei&""
elseif Request.QueryString("MovieHide")<>"" then
sql=sql&"And MovieHide="&Request.QueryString("MovieHide")&" "&SqlMei&""
elseif Request.QueryString("SeverID")<>"" then
sql=sql&"And SeverID="&Request.QueryString("SeverID")&" and MovieHide=0 "&SqlMei&""
elseif Request("StopDate")<>"" and Request("EndDate")<>"" then
Select Case dbtype
Case 0
sql =sql&"And MovieDate>=#"&Request("StopDate")&"# And MovieDate<=#"&Request("EndDate")&"# and MovieHide=0 "&SqlMei&""
Case 1
sql =sql&"And MovieDate>='"&Request("StopDate")&"' And MovieDate<='"&Request("EndDate")&"' and MovieHide=0 "&SqlMei&""
End Select
elseif Request("MovieName")<>"" then
if dbtype=1 then
sql =sql&"And MovieName Like '%"&Request("MovieName")&"%' and MovieHide=0 "&SqlMei&""
else
sql =sql&"And InStr(1,LCase(MovieName),LCase('"&Request("MovieName")&"'),0)<>0 and MovieHide=0 "&SqlMei&""
end if
else
sql=sql&"and MovieHide=0 "&SqlMei&""
end if
Rs.open sql,Conn,1,1
if Rs.eof then
Response.Write"<TR class=""hback""><TD colspan=""13"" class=""hback"" height=""40"">没有记录。</TD></TR>"
else
Rs.PageSize=int_RPP
cPageNo=Request.QueryString("Page")
If cPageNo="" Then cPageNo = 1
If not isnumeric(cPageNo) Then cPageNo = 1
cPageNo = Clng(cPageNo)
If cPageNo>Rs.PageCount Then cPageNo=Rs.PageCount
If cPageNo<=0 Then cPageNo=1
Rs.AbsolutePage=cPageNo
for i=1 to int_RPP
if Rs.eof Then exit For%>
<tr class="hback" onmouseover="this.className='over'" onmouseout="this.className='hback'">
<td height=32 align="center"><%=RS("ID")%></td>
<td height=32><img src="images/movie.gif" width="16" height="16" align="absbottom"><%=RS("MovieName")%></td>
<td height=32 align="center"><% SeverName(RS("SeverID")) %></td>
<td height=32 align="center"><%if Request.QueryString("Feature")=1 then FeatureName(RS("MovieFeatureID")) else ClassName(RS("TypeID")) end if%></td>
<td height=32 align="center"><%if RS("MovieLook")=1 then Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieLook&value=0&ID="&RS("ID")&"""><img src=""Images/icon_01.gif"" border=""0"" />" else Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieLook&value=1&ID="&RS("ID")&"""><img src=""Images/icon_02.gif"" border=""0"" />" end if%></td>
<td height=32 align="center"><%if RS("MovieDown")=1 then Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieDown&value=0&ID="&RS("ID")&"""><img src=""Images/icon_01.gif"" border=""0"" />" else Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieDown&value=1&ID="&RS("ID")&"""><img src=""Images/icon_02.gif"" border=""0"" />" end if%></td>
<td height=32 align="center"><%if RS("MovieSuggest")=1 then Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieSuggest&value=0&ID="&RS("ID")&"""><img src=""Images/icon_01.gif"" border=""0"" /></a>" else Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieSuggest&value=1&ID="&RS("ID")&"""><img src=""Images/icon_02.gif"" border=""0"" /></a>" end if%></td>
<td height=32 align="center"><%if RS("MovieHot")=1 then Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieHot&value=0&ID="&RS("ID")&"""><img src=""Images/icon_01.gif"" border=""0"" />" else Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieHot&value=1&ID="&RS("ID")&"""><img src=""Images/icon_02.gif"" border=""0"" />" end if%></td>
<td height=32 align="center"><%if RS("MovieSerialization")=1 then Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieSerialization&value=0&ID="&RS("ID")&"""><img src=""Images/icon_01.gif"" border=""0"" />" else Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieSerialization&value=1&ID="&RS("ID")&"""><img src=""Images/icon_02.gif"" border=""0"" />" end if%></td>
<td height=32 align="center"><%if RS("MovieFeature")=1 then Response.Write"<img src=""Images/icon_01.gif"" border=""0"" />" else Response.Write"<img src=""Images/icon_02.gif"" border=""0"" />" end if%></td>
<td height=32 align="center"><%if RS("MovieHide")=1 then Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieHide&value=0&ID="&RS("ID")&"""><img src=""Images/icon_01.gif"" border=""0"" />" else Response.Write"<a href=""Admin_Movie.asp?Action=Attribute&Aname=MovieHide&value=1&ID="&RS("ID")&"""><img src=""Images/icon_02.gif"" border=""0"" />" end if%></td>
<td width="10%" align="center"><A href="Admin_Movie.asp?Action=Edit&ID=<%=RS("ID")%>">修改</A>｜<A href="Admin_Movie.asp?Action=Del&ID=<%=RS("ID")%>">删除</A></td>
<td width="3%" align="center"><input name="ID" type="checkbox" id="ID" value="<% = RS("ID")%>"></td>
</tr>
<%Rs.MoveNext
next
end if%>
<tr>
<td height=32 colspan="12" align="right" class="hback"><input type="button" name="Submit" value="批量发布到联盟" onClick="FtpSystem()">
<input type="button" name="Submit" value="批量修改" onClick="document.forms.Action.value='AllEdit';{if(chkCheckBoxChs('id')==false){alert('请至少选择一个影片！');return;}};forms.submit();">
<input type="button" name="Submit" value="批量删除" onClick="document.forms.Action.value='Del';{if(chkCheckBoxChs('id')==false){alert('请至少选择一个影片！');return;}};{if(confirm('确定删除您所选择的影片吗？')){this.document.forms.submit();return true;}return false;}">
<%IF Request.QueryString("MovieHide")<>"" Then
Response.Write"<input type=""button"" name=""Submit"" value=""恢复隐藏"" onClick=""document.forms.Action.value='ResumeW';{if(chkCheckBoxChs('id')==false){alert('请至少选择一个影片！');return;}};{if(confirm('确定恢复您所选择的隐藏影片吗？')){this.document.forms.submit();return true;}return false;}"">"
Else
Response.Write"<input type=""button"" name=""Submit"" value=""隐藏"" onClick=""document.forms.Action.value='Hide';{if(chkCheckBoxChs('id')==false){alert('请至少选择一个影片！');return;}};{if(confirm('确定隐藏您所选择的影片吗？')){this.document.forms.submit();return true;}return false;}"">"
End IF %>
</td>
<td align="center" class="hback"><input name="Action" type="hidden" id="Action">
<input type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(document.forms.chkall.checked);"></td>
</tr>
</form>
<tr align="right">
<td height=32 colspan="13" class="hback"><% response.Write fPageCount(Rs,cPageNo) %></td>
</tr>
</table>
<%end sub
sub Add()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tr>
<td colspan="4" class=xingmu>添加影片</td>
</tr>
<form action="Admin_Movie.asp?Action=AddSave" method="post" name="form">
<tr>
<td width="21%" height=32 align="right" class="hback">选择服务器：</td>
<td colspan="3" class="hback"><input name="SeverName" type="text" size="40" readonly>
<input name="SeverID" type="hidden" id="SeverID" value="">
<input type="button" name="SubmitSever" value="选择服务器" onClick="SelectSever();">
<input type="button" name="SubmitSeverAdd" value="添加服务器" onClick="window.location.href='Admin_Sever.asp?Action=Add'"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">选择栏目：</td>
<td colspan="3" class="hback"><input name="ClassName" type="text" size="40" readonly>
<input name="ClassID" type="hidden" id="ClassID" value="">
<input type="button" name="SubmitClass" value="选择栏目" onClick="SelectClass();">
<input type="button" name="SubmitClassAdd" value="添加栏目" onClick="window.location.href='Admin_Type.asp?Action=Add'"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片名称：</td>
<td colspan="3" class="hback"><input name="MovieName" type="text" size="40"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片演员：</td>
<td colspan="3" class="hback"><input name="MovieActor" type="text" size="40">
<font color=red>演员之间请使用“|” 隔开</font></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地区：</td>
<td colspan="3" class="hback"><%call MovieRegion("MovieRegion","")%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片图片：</td>
<td colspan="3" class="hback"><input name="MoviePic" type="text" size="40"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">图片上传：</td>
<td colspan="3" class="hback"><iframe src="Dialog/UpMoviePic.asp" width="100%" height="100%" frameborder="0" scrolling="no" align="center"></iframe></td>
</tr>
<tr>
<td height=32 align="right" class="hback">所需影币：</td>
<td width="16%" height=32 class="hback"><input name="MovieCoin" type="text" value="2" size="10"></td>
<td width="21%" align="right" class="hback">初始点击数： </td>
<td class="hback"><input name="MovieClick" type="text" value="0" size="10"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片权限：</td>
<td colspan="3" class="hback"><input name="MovieCompetence" type="radio" onClick="showThumbnail_RateOrSize(0,'UserGroup')" value="0" checked>
所有会员组
<input type="radio" name="MovieCompetence" value="1" onClick="showThumbnail_RateOrSize(1,'UserGroup')">
指定会员组</td>
</tr>
<tr id=UserGroup style="display:none">
<td height=32 colspan="4" class="hback"><%= GetUserGroup_CheckBox(MovieGroup,6) %></td>
</tr>
<tr>
<td height=32 align="right" class="hback">开放方式：</td>
<td colspan="3" class="hback"><input name="MovieLook" type="checkbox" value="1" checked>
在线观看 <input type="checkbox" name="MovieDown" value="1">
影片下载 </td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片属性：</td>
<td colspan="3" class="hback"><input type="checkbox" name="MovieSuggest" value="1">
推荐影片 <input type="checkbox" name="MovieHot" value="1">
热点影片
<input type="checkbox" name="MovieSerialization" value="1">
连载影片
<input type="checkbox" name="MovieFeature" value="1" onClick="showcheckbox('MovieFeature','Featureshow')">
专题影片
<input name="MovieFree" type="checkbox" id="MovieFree" value="1">
免费试看 </td>
</tr>
<tr id="Featureshow" style="display:none">
<td height=32 align="right" class="hback">所属专题：</td>
<td colspan="3" class="hback"><input name="FeatureName" type="text" size="40" readonly>
<input name="FeatureID" type="hidden" id="FeatureID" value="">
<input type="button" name="SubmitFeature" value="选择栏目" onClick="SelectFeature();">
<input type="button" name="SubmitFeatureAdd" value="添加栏目" onClick="window.location.href='Admin_FeatureType.asp?Action=Add'"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地址设定：</td>
<td colspan="3" class="hback"><input name="MovieURl" type="text" size="40">
集数
<input name="UrlVolume" type="text" size="5">
格式
<input name="UrlSuffix" type="text" size="5">
<input type="button" name="SubmitUrl" onClick='setid("UrlVolume","UrlSuffix","MovieURl","urlup",0);' value="设定"></td>
</tr>
<tr><td class="hback" align="right">影片地址：</td><td colspan="3" class="hback" id="urlup"></td></tr>
<tr>
<td height=32 align="right" class="hback">P2P地址设定：</td>
<td colspan="3" class="hback"><input name="P2pUrl" type="text" size="40">
集数
<input name="P2pVolume" type="text" size="5">
格式
<input name="P2pSuffix" type="text" size="5">
<input type="button" name="SubmitP2p" onClick='setid("P2pVolume","P2pSuffix","P2pUrl","P2Pup",0);' value="设定"></td>
</tr>
<tr><td class="hback" align="right">P2P影片地址：</td><td colspan="3" class="hback" id="P2Pup"></td></tr>
<tr>
<td height=32 align="right" class="hback">下载地址设定：</td>
<td colspan="3" class="hback"><input name="DownUrl" type="text" size="40">
集数
<input name="DownVolume" type="text" size="5">
格式
<input name="DownSuffix" type="text" size="5">
<input type="button" name="SubmitDown" onClick='setid("DownVolume","DownSuffix","DownUrl","Downup",0);' value="设定"></td>
</tr>
<tr><td class="hback" align="right">下载地址：</td>
<td colspan="3" class="hback" id="Downup"></td></tr>
<tr>
<td align="right" class="hback">影片介绍：</td>
<td colspan="3" class="hback">
<textarea name="Content" cols="" rows="" style="width:100%; height:300px;"></textarea></td>
</tr>
<tr>
<td height=32 colspan="4" align="center" class="hback"><input type="button" name="Submit" value="添 加" onClick="SubmitMovie();"></td>
</tr>
</form>
</table>
<%end sub
sub Edit()%>
<table class=table cellspacing=1 cellpadding=3 width="98%" align=center border=0>
<tr>
<td colspan="4" class=xingmu>修改影片</td>
</tr>
<form action="Admin_Movie.asp?Action=EditSave" method="post" name="form">
<tr>
<td width="21%" height=32 align="right" class="hback">选择服务器：</td>
<td colspan="3" class="hback"><input name="SeverName" type="text" value="<% SeverName(YWNT_TMS_SeverID) %>" size="40" readonly>
<input name="SeverID" type="hidden" id="SeverID" value="<%=YWNT_TMS_SeverID%>">
<input type="button" name="SubmitSever" value="选择服务器" onClick="SelectSever();">
<input type="button" name="SubmitSeverAdd" value="添加服务器" onClick="window.location.href='Admin_Sever.asp?Action=Add'"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">选择栏目：</td>
<td colspan="3" class="hback"><input name="ClassName" type="text" value="<% ClassName(YWNT_TMS_TypeID) %>" size="40" readonly>
<input name="ClassID" type="hidden" id="ClassID" value="<%=YWNT_TMS_TypeID%>">
<input type="button" name="SubmitClass" value="选择栏目" onClick="SelectClass();">
<input type="button" name="SubmitClassAdd" value="添加栏目" onClick="window.location.href='Admin_Type.asp?Action=Add'"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片名称：</td>
<td colspan="3" class="hback"><input name="MovieName" type="text" value="<%=YWNT_TMS_MovieName%>" size="40"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片演员：</td>
<td colspan="3" class="hback"><input name="MovieActor" type="text" value="<%=YWNT_TMS_MovieActor%>" size="40">
<font color=red>演员之间请使用“|” 隔开</font></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地区：</td>
<td colspan="3" class="hback"><%call MovieRegion("MovieRegion",YWNT_TMS_MovieRegion)%></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片图片：</td>
<td colspan="3" class="hback"><input name="MoviePic" type="text" value="<%=YWNT_TMS_MoviePic%>" size="40"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">图片上传：</td>
<td colspan="3" class="hback"><iframe src="Dialog/UpMoviePic.asp" width="100%" height="100%" frameborder="0" scrolling="no" align="center"></iframe></td>
</tr>
<tr>
<td height=32 align="right" class="hback">所需影币：</td>
<td width="16%" height=32 class="hback"><input name="MovieCoin" type="text" value="<%=YWNT_TMS_MovieCoin%>" size="10"></td>
<td width="21%" align="right" class="hback">点击数： </td>
<td class="hback"><input name="MovieClick" type="text" value="<%=YWNT_TMS_MovieClick%>" size="10"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片权限：</td>
<td colspan="3" class="hback"><input name="MovieCompetence" type="radio" onClick="showThumbnail_RateOrSize(0,'UserGroup')" value="0" <%if YWNT_TMS_MovieCompetence=0 then Response.Write"checked"%>>
所有会员组
<input type="radio" name="MovieCompetence" value="1" onClick="showThumbnail_RateOrSize(1,'UserGroup')" <%if YWNT_TMS_MovieCompetence=1 then Response.Write"checked"%>>
指定会员组</td>
</tr>
<tr id=UserGroup style="display:none">
<td height=32 colspan="4" class="hback"><%= GetUserGroup_CheckBox(YWNT_TMS_MovieGroup,6) %></td>
</tr>
<tr>
<td height=32 align="right" class="hback">开放方式：</td>
<td colspan="3" class="hback"><input name="MovieLook" type="checkbox" value="1" <%if YWNT_TMS_MovieLook=1 then Response.Write"checked"%>>
在线观看 <input type="checkbox" name="MovieDown" value="1" <%if YWNT_TMS_MovieDown=1 then Response.Write"checked"%>>
影片下载 </td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片属性：</td>
<td colspan="3" class="hback"><input type="checkbox" name="MovieSuggest" value="1" <%if YWNT_TMS_MovieSuggest=1 then Response.Write"checked"%>>
推荐影片 <input type="checkbox" name="MovieHot" value="1" <%if YWNT_TMS_MovieHot=1 then Response.Write"checked"%>>
热点影片 <input type="checkbox" name="MovieSerialization" value="1" <%if YWNT_TMS_MovieSerialization=1 then Response.Write"checked"%>>
连载影片
<input type="checkbox" name="MovieFeature" value="1" <%if YWNT_TMS_MovieFeature=1 then Response.Write"checked"%> onClick="showcheckbox('MovieFeature','Featureshow')">
专题影片
<input name="MovieFree" type="checkbox" id="MovieFree" value="1" <%if YWNT_TMS_MovieFree=1 then Response.Write"checked"%>>
免费试看 </td>
</tr>
<tr id="Featureshow" style="display:none">
<td height=32 align="right" class="hback">所属专题：</td>
<td colspan="3" class="hback"><input name="FeatureName" type="text" size="40" readonly value="<% FeatureName(YWNT_TMS_MovieFeatureID) %>">
<input name="FeatureID" type="hidden" id="FeatureID" value="<%=YWNT_TMS_MovieFeatureID%>">
<input type="button" name="SubmitFeature" value="选择栏目" onClick="SelectFeature();">
<input type="button" name="SubmitFeatureAdd" value="添加栏目"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">影片地址设定：</td>
<td colspan="3" class="hback"><input name="MovieURl" type="text" size="40">
集数
<input name="UrlVolume" type="text" size="5">
格式
<input name="UrlSuffix" type="text" size="5">
<input type="button" name="SubmitUrl" onClick='setid("UrlVolume","UrlSuffix","MovieURl","urlup",<%= movienum("YWNT_TMS_MovieUrl",YWNT_TMS_ID) %>);' value="设定"></td>
</tr>
<tr><td rowspan="2" class="hback" align="right">影片地址：</td>
<td colspan="3" class="hback"><%call MovieUrl("YWNT_TMS_MovieUrl","EditUrl","MovieUrl",YWNT_TMS_ID)%></td>
</tr>
<tr>
<td colspan="3" class="hback" id="urlup"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">P2P地址设定：</td>
<td colspan="3" class="hback"><input name="P2pUrl" type="text" size="40">
集数
<input name="P2pVolume" type="text" size="5">
格式
<input name="P2pSuffix" type="text" size="5">
<input type="button" name="SubmitP2p" onClick='setid("P2pVolume","P2pSuffix","P2pUrl","P2Pup",<%= movienum("YWNT_TMS_P2PUrl",YWNT_TMS_ID) %>);' value="设定"></td>
</tr>
<tr><td rowspan="2" class="hback" align="right">P2P影片地址：</td>
<td colspan="3" class="hback"><%Select Case SeverP2pType(YWNT_TMS_SeverID)
Case 1,3,4,5,6
call MovieUrl("YWNT_TMS_P2PUrl","EditP2Purl","P2PUrl",YWNT_TMS_ID)
Case 2
call MovieUrl("p2pfilm","EditP2Purl","Url",YWNT_TMS_ID)
End Select%></td>
</tr>
<tr>
<td colspan="3" class="hback" id="P2Pup"></td>
</tr>
<tr>
<td height=32 align="right" class="hback">下载地址设定：</td>
<td colspan="3" class="hback"><input name="DownUrl" type="text" size="40">
集数
<input name="DownVolume" type="text" size="5">
格式
<input name="DownSuffix" type="text" size="5">
<input type="button" name="SubmitDown" onClick='setid("DownVolume","DownSuffix","DownUrl","Downup",<%= movienum("YWNT_TMS_DownUrl",YWNT_TMS_ID) %>);' value="设定"></td>
</tr>
<tr><td rowspan="2" class="hback" align="right">下载地址：</td>
<td colspan="3" class="hback"><%call MovieUrl("YWNT_TMS_DownUrl","EditDownurl","DownUrl",YWNT_TMS_ID)%></td>
</tr>
<tr>
<td colspan="3" class="hback" id="Downup"></td>
</tr>
<tr>
<td align="right" class="hback">影片介绍：</td>
<td colspan="3" class="hback">
<textarea name="Content" cols="" rows="" style="width:100%; height:300px;"><%=YWNT_TMS_MovieContent%></textarea></td>
</tr>
<tr>
<td height=32 colspan="4" align="center" class="hback"><input name="ReturnURL" type="hidden" value="<%=Request.ServerVariables("HTTP_REFERER")%>"><input type="hidden" name="ID" value="<%=YWNT_TMS_ID%>">
<input type="button" name="Submit" value="修 改" onClick="SubmitMovie();"></td>
</tr>
</form>
</table>
<%end sub
sub AllEdit()%>
<table class="table" cellspacing="1" cellpadding="3" width="98%" align="center" border="0">
<tr>
<td colspan="4" class="xingmu">批量修改影片属性</td>
</tr>
<form action="Admin_Movie.asp?Action=AllEditSave" method="post" name="form" id="form">
<tr>
<td width="21%" height="32" align="right" class="hback">选择服务器：</td>
<td colspan="3" class="hback"><input name="SeverName" type="text" size="40" readonly="readonly" />
<input name="SeverID" type="hidden" id="SeverID" value="" />
<input type="button" name="SubmitSever" value="选择服务器" onClick="SelectSever();" />
<input type="button" name="SubmitSeverAdd" value="添加服务器" onClick="window.location.href='Admin_Sever.asp?Action=Add'" /></td>
</tr>
<tr>
<td height="32" align="right" class="hback">选择栏目：</td>
<td colspan="3" class="hback"><input name="ClassName" type="text" size="40" readonly="readonly" />
<input name="ClassID" type="hidden" id="ClassID" value="" />
<input type="button" name="SubmitClass" value="选择栏目" onClick="SelectClass();" />
<input type="button" name="SubmitClassAdd" value="添加栏目" onClick="window.location.href='Admin_Type.asp?Action=Add'" /></td>
</tr>
<tr>
<td height="32" align="right" class="hback">影片地区：</td>
<td colspan="3" class="hback"><%Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="Select ID,RegionName from YWNT_TMS_MovieRegion Order by RegionWith asc,ID asc"
Rs.open sql,Conn,1,1
if RS.eof then
Response.Write"暂时还没有影片地区请先添加地区"
else
Response.Write"<select name='MovieRegion' id='MovieRegion'>"
Response.Write"<option value="""">选择地区</option>"
do while not RS.eof%>
<option value="<%= RS("ID") %>"><%= RS("RegionName") %></option>
<%RS.movenext
loop
Response.Write"</select>"
end if
RS.close
set RS=nothing%></td>
</tr>
<tr>
<td height="32" align="right" class="hback">所需影币：</td>
<td width="16%" height="32" class="hback"><input name="MovieCoin" type="text" size="10" /></td>
<td width="21%" align="right" class="hback">初始点击数： </td>
<td class="hback"><input name="MovieClick" type="text" size="10" /></td>
</tr>
<tr>
<td height="32" align="right" class="hback">影片权限：</td>
<td colspan="3" class="hback"><input name="MovieCompetence" type="radio" onClick="showThumbnail_RateOrSize(0,'UserGroup')" value="0"/>
所有会员组
<input type="radio" name="MovieCompetence" value="1" onClick="showThumbnail_RateOrSize(1,'UserGroup')" />
指定会员组</td>
</tr>
<tr id="UserGroup" style="display:none">
<td height="32" colspan="4" class="hback"><%= GetUserGroup_CheckBox(MovieGroup,6) %></td>
</tr>
<tr>
<td height="32" align="right" class="hback">开放方式：</td>
<td colspan="3" class="hback"><input name="MovieLook" type="checkbox" value="1"/>
在线观看
<input type="checkbox" name="MovieDown" value="1" />
影片下载 </td>
</tr>
<tr>
<td height="32" align="right" class="hback">影片属性：</td>
<td colspan="3" class="hback"><input type="checkbox" name="MovieSuggest" value="1" />
推荐影片
<input type="checkbox" name="MovieHot" value="1" />
热点影片
<input type="checkbox" name="MovieSerialization" value="1" />
连载影片
<input type="checkbox" name="MovieFeature" value="1" onClick="showcheckbox('MovieFeature','Featureshow2')" />
专题影片
<input name="MovieFree" type="checkbox" id="MovieFree" value="1" />
免费试看 </td>
</tr>
<tr id="Featureshow2" style="display:none">
<td height="32" align="right" class="hback">所属专题：</td>
<td colspan="3" class="hback"><input name="FeatureName" type="text" size="40" readonly="readonly" />
<input name="FeatureID" type="hidden" id="FeatureID" value="" />
<input type="button" name="SubmitFeature" value="选择栏目" onClick="SelectFeature();" />
<input type="button" name="SubmitFeatureAdd" value="添加栏目" onClick="window.location.href='Admin_FeatureType.asp?Action=Add'" /></td>
</tr>
<tr>
<td height="32" colspan="4" align="center" class="hback"><font color=red>以上属性不需要修改的请不要变动</font></td>
</tr>
<tr>
<td height="32" colspan="4" align="center" class="hback"><input name="ReturnURL" type="hidden" value="<%=Request.ServerVariables("HTTP_REFERER")%>"><input name="ID" type="hidden" value="<%=Request.Form("ID")%>"><input type="submit" name="Submit" value="修 改" /></td>
</tr>
</form>
</table>
<%end sub%>
<script language="javascript">
function showcheckbox(cname,dname)
{
if(document.getElementById(cname).checked==true)
{
showThumbnail_RateOrSize(1,dname)
}
else
{
showThumbnail_RateOrSize(0,dname)
}
}
<%if request("Action")="Edit" then%>
showThumbnail_RateOrSize(<%=YWNT_TMS_MovieCompetence%>,'UserGroup')
showThumbnail_RateOrSize(<%=YWNT_TMS_MovieFeature%>,'Featureshow')
<%end if%>
function showThumbnail_RateOrSize(param,pname)
{
if(param==1)
{
document.getElementById(pname).style.display="block"
}else
{
document.getElementById(pname).style.display="none"
}
}
function setid(UrlVolume,UrlSuffix,MovieURl,urlup,Movienum)
{
str='';Urlnum='';
if(!document.getElementById(UrlVolume).value)
document.getElementById(UrlVolume).value=1;
for(i=1;i<=document.getElementById(UrlVolume).value;i++)
{
if(document.getElementById(UrlVolume).value<100)
{
if((i+Movienum)<10)
{
Urlnum='0'+(i+Movienum);
}
else
{
Urlnum=(i+Movienum);
}
}
else if(document.getElementById(UrlVolume).value<1000)
{
if((i+Movienum)<10)
{
Urlnum='00'+(i+Movienum);
}
else if((i+Movienum)<100)
{
Urlnum='0'+(i+Movienum);
}
else
{
Urlnum=(i+Movienum);
}
}
if (document.getElementById(UrlSuffix).value=='')
{
num='';
}
else
{
num=Urlnum;
}
str+='<input type="text" name="'+MovieURl+i+'" size=50 value="'+document.getElementById(MovieURl).value+''+num+''+document.getElementById(UrlSuffix).value+'"> 第'+Urlnum+'集<br>';
}
document.getElementById(urlup).innerHTML=str;
}
</script>
<%call connclose()%>
</BODY></HTML>